home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / packages / underline.elc < prev    next >
Emacs Compiled Lisp  |  1995-08-29  |  2.1 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
1% dexvert Combustion 2 Particle Library (other/combustion2ParticleLibrary) ext Unsupported
100% file Emacs/XEmacs v19 byte-compiled Lisp data default
99% file data default
100% TrID Emacs/XEmacs byte-compiled Lisp (generic) default
100% xdgMime text/x-emacs-lisp default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 38 3a 32 | 37 20 31 39 39 35 0a 3b | 14:18:2|7 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 61 | 63 6b 61 67 65 73 2f 75 |/lisp/pa|ckages/u|
|00000090| 6e 64 65 72 6c 69 6e 65 | 2e 65 6c 0a 3b 3b 3b 20 |nderline|.el.;;; |
|000000a0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|000000b0| 2e 31 33 20 58 45 6d 61 | 63 73 20 4c 75 63 69 64 |.13 XEma|cs Lucid|
|000000c0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 3b 20 31 2d 53 |ersion 2|.25; 1-S|
|000000e0| 65 70 2d 39 34 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ep-94..;|;; optim|
|000000f0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000100| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000110| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000120| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000130| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000140| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000150| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000160| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000170| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000180| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000190| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|000001a0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001b0| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|).    (e|
|000001c0| 72 72 6f 72 20 22 54 68 | 69 73 20 66 69 6c 65 20 |rror "Th|is file |
|000001d0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001e0| 20 45 6d 61 63 73 20 31 | 39 2e 22 29 29 0a 0a 28 | Emacs 1|9."))..(|
|000001f0| 66 73 65 74 20 27 75 6e | 64 65 72 6c 69 6e 65 2d |fset 'un|derline-|
|00000200| 72 65 67 69 6f 6e 20 23 | 5b 28 73 74 61 72 74 20 |region #|[(start |
|00000210| 65 6e 64 29 20 22 8a c0 | 20 89 19 5c 6e 0b 5d c4 |end) "..| ..\n.].|
|00000220| 93 88 5c 6e 0b 5e 62 88 | 60 09 57 ad 8d c5 c6 21 |..\n.^b.|`.W....!|
|00000230| ac 83 c7 63 88 c8 75 88 | aa 6e 2a 87 22 20 5b 6d |...c..u.|.n*." [m|
|00000240| 61 6b 65 2d 6d 61 72 6b | 65 72 20 65 6e 64 31 20 |ake-mark|er end1 |
|00000250| 73 74 61 72 74 20 65 6e | 64 20 6e 69 6c 20 6c 6f |start en|d nil lo|
|00000260| 6f 6b 69 6e 67 2d 61 74 | 20 22 5b 5f 00 2d 20 5d |oking-at| "[_.- ]|
|00000270| 22 20 22 5f 08 22 20 31 | 5d 20 34 20 22 5c 0a 55 |" "_." 1|] 4 "\.U|
|00000280| 6e 64 65 72 6c 69 6e 65 | 20 61 6c 6c 20 6e 6f 6e |nderline| all non|
|00000290| 62 6c 61 6e 6b 20 63 68 | 61 72 61 63 74 65 72 73 |blank ch|aracters|
|000002a0| 20 69 6e 20 74 68 65 20 | 72 65 67 69 6f 6e 2e 0a | in the |region..|
|000002b0| 57 6f 72 6b 73 20 62 79 | 20 6f 76 65 72 73 74 72 |Works by| overstr|
|000002c0| 69 6b 69 6e 67 20 75 6e | 64 65 72 73 63 6f 72 65 |iking un|derscore|
|000002d0| 73 2e 0a 43 61 6c 6c 65 | 64 20 66 72 6f 6d 20 70 |s..Calle|d from p|
|000002e0| 72 6f 67 72 61 6d 2c 20 | 74 61 6b 65 73 20 74 77 |rogram, |takes tw|
|000002f0| 6f 20 61 72 67 75 6d 65 | 6e 74 73 20 53 54 41 52 |o argume|nts STAR|
|00000300| 54 20 61 6e 64 20 45 4e | 44 0a 77 68 69 63 68 20 |T and EN|D.which |
|00000310| 73 70 65 63 69 66 79 20 | 74 68 65 20 72 61 6e 67 |specify |the rang|
|00000320| 65 20 74 6f 20 6f 70 65 | 72 61 74 65 20 6f 6e 2e |e to ope|rate on.|
|00000330| 22 20 22 2a 72 22 5d 29 | 0a 28 66 73 65 74 20 27 |" "*r"])|.(fset '|
|00000340| 75 6e 75 6e 64 65 72 6c | 69 6e 65 2d 72 65 67 69 |ununderl|ine-regi|
|00000350| 6f 6e 20 23 5b 28 73 74 | 61 72 74 20 65 6e 64 29 |on #[(st|art end)|
|00000360| 20 22 8a c0 20 89 19 5c | 6e 0b 5d c4 93 88 5c 6e | ".. ..\|n.]...\n|
|00000370| 0b 5e 62 88 c5 c6 09 c7 | 23 ad 86 c8 c9 21 88 aa |.^b.....|#....!..|
|00000380| 73 2a 87 22 20 5b 6d 61 | 6b 65 2d 6d 61 72 6b 65 |s*." [ma|ke-marke|
|00000390| 72 20 65 6e 64 31 20 73 | 74 61 72 74 20 65 6e 64 |r end1 s|tart end|
|000003a0| 20 6e 69 6c 20 72 65 2d | 73 65 61 72 63 68 2d 66 | nil re-|search-f|
|000003b0| 6f 72 77 61 72 64 20 22 | 5f 08 5c 5c 7c 08 5f 22 |orward "|_.\\|._"|
|000003c0| 20 74 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 2d | t delet|e-char -|
|000003d0| 32 5d 20 35 20 22 5c 0a | 52 65 6d 6f 76 65 20 61 |2] 5 "\.|Remove a|
|000003e0| 6c 6c 20 75 6e 64 65 72 | 6c 69 6e 69 6e 67 20 28 |ll under|lining (|
|000003f0| 6f 76 65 72 73 74 72 75 | 63 6b 20 75 6e 64 65 72 |overstru|ck under|
|00000400| 73 63 6f 72 65 73 29 20 | 69 6e 20 74 68 65 20 72 |scores) |in the r|
|00000410| 65 67 69 6f 6e 2e 0a 43 | 61 6c 6c 65 64 20 66 72 |egion..C|alled fr|
|00000420| 6f 6d 20 70 72 6f 67 72 | 61 6d 2c 20 74 61 6b 65 |om progr|am, take|
|00000430| 73 20 74 77 6f 20 61 72 | 67 75 6d 65 6e 74 73 20 |s two ar|guments |
|00000440| 53 54 41 52 54 20 61 6e | 64 20 45 4e 44 0a 77 68 |START an|d END.wh|
|00000450| 69 63 68 20 73 70 65 63 | 69 66 79 20 74 68 65 20 |ich spec|ify the |
|00000460| 72 61 6e 67 65 20 74 6f | 20 6f 70 65 72 61 74 65 |range to| operate|
|00000470| 20 6f 6e 2e 22 20 22 2a | 72 22 5d 29 0a 28 66 73 | on." "*|r"]).(fs|
|00000480| 65 74 20 27 75 6e 6f 76 | 65 72 73 74 72 69 6b 65 |et 'unov|erstrike|
|00000490| 2d 72 65 67 69 6f 6e 20 | 23 5b 28 73 74 61 72 74 |-region |#[(start|
|000004a0| 20 65 6e 64 29 20 22 8a | c0 20 89 19 5c 6e 0b 5d | end) ".|. ..\n.]|
|000004b0| c4 93 88 5c 6e 0b 5e 62 | 88 c5 c6 09 c7 23 ad 86 |...\n.^b|.....#..|
|000004c0| c8 c9 21 88 aa 73 2a 87 | 22 20 5b 6d 61 6b 65 2d |..!..s*.|" [make-|
|000004d0| 6d 61 72 6b 65 72 20 65 | 6e 64 31 20 73 74 61 72 |marker e|nd1 star|
|000004e0| 74 20 65 6e 64 20 6e 69 | 6c 20 72 65 2d 73 65 61 |t end ni|l re-sea|
|000004f0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5c 5c 28 |rch-forw|ard "\\(|
|00000500| 2e 5c 5c 29 08 5c 5c 31 | 22 20 74 20 64 65 6c 65 |.\\).\\1|" t dele|
|00000510| 74 65 2d 63 68 61 72 20 | 2d 32 5d 20 35 20 22 5c |te-char |-2] 5 "\|
|00000520| 0a 52 65 6d 6f 76 65 20 | 61 6c 6c 20 6f 76 65 72 |.Remove |all over|
|00000530| 73 74 72 69 6b 69 6e 67 | 20 28 63 68 61 72 61 63 |striking| (charac|
|00000540| 74 65 72 2d 62 61 63 6b | 73 70 61 63 65 2d 63 68 |ter-back|space-ch|
|00000550| 61 72 61 63 74 65 72 29 | 20 69 6e 20 74 68 65 20 |aracter)| in the |
|00000560| 72 65 67 69 6f 6e 2e 0a | 43 61 6c 6c 65 64 20 66 |region..|Called f|
|00000570| 72 6f 6d 20 70 72 6f 67 | 72 61 6d 2c 20 74 61 6b |rom prog|ram, tak|
|00000580| 65 73 20 74 77 6f 20 61 | 72 67 75 6d 65 6e 74 73 |es two a|rguments|
|00000590| 20 53 54 41 52 54 20 61 | 6e 64 20 45 4e 44 20 77 | START a|nd END w|
|000005a0| 68 69 63 68 20 73 70 65 | 63 69 66 79 20 74 68 65 |hich spe|cify the|
|000005b0| 0a 72 61 6e 67 65 20 74 | 6f 20 6f 70 65 72 61 74 |.range t|o operat|
|000005c0| 65 20 6f 6e 2e 22 20 22 | 2a 72 22 5d 29 0a 28 66 |e on." "|*r"]).(f|
|000005d0| 73 65 74 20 27 6f 76 65 | 72 73 74 72 69 6b 65 2d |set 'ove|rstrike-|
|000005e0| 72 65 67 69 6f 6e 20 23 | 5b 28 73 74 61 72 74 20 |region #|[(start |
|000005f0| 65 6e 64 29 20 22 8a c0 | 20 89 19 5c 6e 0b 5d c4 |end) "..| ..\n.].|
|00000600| 93 88 5c 6e 0b 5e 62 88 | 60 09 57 ad 90 c5 c6 21 |..\n.^b.|`.W....!|
|00000610| ac 86 60 66 c7 b1 02 88 | c8 75 88 aa 6b 2a 87 22 |..`f....|.u..k*."|
|00000620| 20 5b 6d 61 6b 65 2d 6d | 61 72 6b 65 72 20 65 6e | [make-m|arker en|
|00000630| 64 31 20 73 74 61 72 74 | 20 65 6e 64 20 6e 69 6c |d1 start| end nil|
|00000640| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5b 5f 00 | looking|-at "[_.|
|00000650| 2d 20 5d 22 20 38 20 31 | 5d 20 34 20 22 5c 0a 4f |- ]" 8 1|] 4 "\.O|
|00000660| 76 65 72 73 74 72 69 6b | 65 20 28 63 68 61 72 61 |verstrik|e (chara|
|00000670| 63 74 65 72 2d 62 61 63 | 6b 73 70 61 63 65 2d 63 |cter-bac|kspace-c|
|00000680| 68 61 72 61 63 74 65 72 | 29 20 61 6c 6c 20 6e 6f |haracter|) all no|
|00000690| 6e 62 6c 61 6e 6b 20 63 | 68 61 72 61 63 74 65 72 |nblank c|haracter|
|000006a0| 73 20 69 6e 0a 74 68 65 | 20 72 65 67 69 6f 6e 2e |s in.the| region.|
|000006b0| 20 43 61 6c 6c 65 64 20 | 66 72 6f 6d 20 70 72 6f | Called |from pro|
|000006c0| 67 72 61 6d 2c 20 74 61 | 6b 65 73 20 74 77 6f 20 |gram, ta|kes two |
|000006d0| 61 72 67 75 6d 65 6e 74 | 73 20 53 54 41 52 54 20 |argument|s START |
|000006e0| 61 6e 64 20 45 4e 44 20 | 77 68 69 63 68 0a 73 70 |and END |which.sp|
|000006f0| 65 63 69 66 79 20 74 68 | 65 20 72 61 6e 67 65 20 |ecify th|e range |
|00000700| 74 6f 20 6f 70 65 72 61 | 74 65 20 6f 6e 2e 22 20 |to opera|te on." |
|00000710| 22 2a 72 22 5d 29 0a 28 | 66 73 65 74 20 27 75 6e |"*r"]).(|fset 'un|
|00000720| 75 6e 64 65 72 6c 69 6e | 65 2d 61 6e 64 2d 75 6e |underlin|e-and-un|
|00000730| 6f 76 65 72 73 74 72 69 | 6b 65 2d 72 65 67 69 6f |overstri|ke-regio|
|00000740| 6e 20 23 5b 28 73 74 61 | 72 74 20 65 6e 64 29 20 |n #[(sta|rt end) |
|00000750| 22 8a 65 62 88 c0 c1 5c | 6e 0b 5d c4 23 ad b1 60 |".eb...\|n.].#..`|
|00000760| c5 5a 66 1e 06 67 1e 07 | 0e 06 0e 07 55 ab 86 c8 |.Zf..g..|....U...|
|00000770| c9 21 88 aa 98 0e 06 ca | 55 ab 86 c8 c9 21 88 aa |.!......|U....!..|
|00000780| 8c 0e 07 ca 55 ab 86 60 | 53 60 54 7c 88 2a aa 46 |....U..`|S`T|.*.F|
|00000790| 29 87 22 20 5b 73 65 61 | 72 63 68 2d 66 6f 72 77 |)." [sea|rch-forw|
|000007a0| 61 72 64 20 22 08 22 20 | 73 74 61 72 74 20 65 6e |ard "." |start en|
|000007b0| 64 20 74 20 32 20 70 72 | 65 63 65 64 69 6e 67 20 |d t 2 pr|eceding |
|000007c0| 66 6f 6c 6c 6f 77 69 6e | 67 20 64 65 6c 65 74 65 |followin|g delete|
|000007d0| 2d 63 68 61 72 20 2d 32 | 20 39 35 5d 20 34 20 22 |-char -2| 95] 4 "|
|000007e0| 5c 0a 52 65 6d 6f 76 65 | 20 75 6e 64 65 72 6c 69 |\.Remove| underli|
|000007f0| 6e 69 6e 67 20 61 6e 64 | 20 6f 76 65 72 73 74 72 |ning and| overstr|
|00000800| 69 6b 69 6e 67 20 69 6e | 20 74 68 65 20 72 65 67 |iking in| the reg|
|00000810| 69 6f 6e 2e 20 20 43 61 | 6c 6c 65 64 20 66 72 6f |ion.  Ca|lled fro|
|00000820| 6d 20 61 20 70 72 6f 67 | 72 61 6d 2c 0a 74 61 6b |m a prog|ram,.tak|
|00000830| 65 73 20 74 77 6f 20 61 | 72 67 75 6d 65 6e 74 73 |es two a|rguments|
|00000840| 20 53 54 41 52 54 20 61 | 6e 64 20 45 4e 44 20 77 | START a|nd END w|
|00000850| 68 69 63 68 20 73 70 65 | 63 69 66 79 20 74 68 65 |hich spe|cify the|
|00000860| 20 72 61 6e 67 65 20 74 | 6f 20 6f 70 65 72 61 74 | range t|o operat|
|00000870| 65 20 6f 6e 2e 22 20 22 | 2a 72 22 5d 29 0a       |e on." "|*r"]).  |
+--------+-------------------------+-------------------------+--------+--------+